>L.3760,

 3760

>L.3670,

 3670DEFFNreadvarval(v$)

 3680REM returns string value of operating system variable of name v$

 3690LOCAL vloc,buffer,val,n

 3700DIM vloc 30, buffer 30

 3710$vloc=v$

 3720SYS "OS_ReadVarVal",vloc,buffer,30,val,3 TO ,,n

 3730?(buffer+n)=13

 3740=$buffer

 3750

 3760

>*SPOOL

